5 PRINTCHR$(147);"     READING DATA..."
10 CK=0:POKE53281,6:POKE53280,14
20 FORA=679TO715:READ D:POKEA,D:CK=CK+D:NEXT:POKE49153,0
30 IF CK<>2921THEN PRINT"ERROR[146] IN DATA STATEMENTS"
35 FL$="R/S RESTORE 2":GOTO50
40 PRINTCHR$(147);" LOAD:";:OPEN9,0,0:INPUT#9,FL$:CLOSE9
50 PRINTCHR$(147);"LOAD"+CHR$(34)+FL$+CHR$(34)+",80 REM"
60 A$=""+CHR$(13)+CHR$(13)+"SYS689"+CHR$(13)
70 FORI=1TOLEN(A$):POKE630+I,ASC(MID$(A$,I)):NEXT:POKE198,I-1:CLR:NEW
100 DATA 169,1,133,204,76,113,168,0,0,0
101 DATA 169,234,141,40,3,169,167,141
102 DATA 2,3,141,22,3,141,24,3,169,2
103 DATA 141,3,3,141,23,3,141,25,3